Food security
## Warning: package 'ggplot2' was built under R version 3.6.3
## Warning: package 'purrr' was built under R version 3.6.3
## Warning: package 'dplyr' was built under R version 3.6.3
## Warning: package 'foreign' was built under R version 3.6.3
## Warning: package 'plotly' was built under R version 3.6.3
## Warning: package 'sf' was built under R version 3.6.2
## Warning: package 'DT' was built under R version 3.6.3
Column
Bottom 20 mandals
db20 <- db[order(db$food),]
db20 <- db20 %>% top_n(-20)
## Selecting by food
bpf <- ggplot(data = db20, mapping = aes(x = reorder(mandalname, -food), food)) +
geom_bar(stat = "identity", fill = "steelblue") +
theme(axis.title.y = element_blank(),
axis.title.x = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank()) +
coord_flip() + ggtitle("% able to access food")
bpf <- bpf + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
panel.background = element_blank(), axis.line = element_line(colour = "black"))
ggplotly(bpf)
All mandals
DT::datatable(db[, c("mandalname", "food")],
rownames = FALSE,
colnames = c('Mandal', '% able to access food'),
options = list(pageLength = 10)
)